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FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
ABSTRACT: 


The VAX-11 MACRO assembler trans 
modules for input to the VAX-11 


ENVIRONMENT: USER MODE 
AUTHOR: Benn Schreiber, CREATION DATE: 20-AUG-78 
MODIFIED BY: 
v0O1.14 RNOO29 R. Newland 9~Feb-1980 
copy macro gonnence correctly into virtual memory. 
SPR 11-2859 
v01.13 RNOO023 R. Newland 3-Nov-1979 


totes i g RACRO~Se source code into object 


New meesuge 4 codes to get error messages from system 
message fil 

vO1.12 RNOO10 R. Newland 5-Sep-1979 
Dott isons MXB blocks 

v01.14 RNOO28 R. Newland 18-Jan-1980 
Do not process lexical func ¢ fons for macros defined 
within another macro. 11-28098 
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SPR’ 123 $§ : : 
RNOOOS ewland 13-Aug-1979 


Remove .ALIGN LONG — .DEBUG statements 
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MACSBDYSCN SCAN MACRO BODY 16-SEP-1984 02:03: AX/VMS Macro V04-00 Pa 
v04=000 DECLARATIONS Breet e8s OT ieFioe LAACKOS see ioYSeN Gur: 1 we 3, 

8 g .SBTTL DECLARATIONS | 
0 : INCLUDE FILES: 
0 % ; 
000 371 | 
0 ie : 
$8 t 3; MACROS: 
9900 75° SMAC_CTLFLGDEF :DEFINE CONTROL FLAGS 
000 id: SMAC~GENVALDEF [DEFINE GENERAL VALUES 
0000 «7? $MAC~INTCODDEF 'DEFINE INTER. BUFFER CODES 
090 i: SMAC"MTXDEF ‘DEFINE SPECIAL MACRO TEXT OPERATOR BYTES 
0 7 $MAC~SYMBLKDEF ‘DEFINE SYMBOL BLOCK OFFSETS 
000 0 SMAC “MNBDEF [DEFINE MNB OFFSETS 

it 1 SMACASGDEF ; Define message codes 

0008 Hg ; 

0008 4 : EQUATED SYMBOLS: 
00 5: 

0008 é 

0008 ~=Ss«B7 gx 

0008 $88 ; LOCAL DATA 

0008 «4=s«89 :: 

00000000 30 .PSECT MACSRO_DATA,NOEXE ,NOWRT,GBL,LONG 
00000000 9000 36 INSYMP = 0 

0000 94 SMAC_INSERT_SYM EXTRACT,LEXICAL_EXTRACT MTX$_LXEXT ;ZEXTRACT | 

0015 «95 SMAC_INSERT_SYM LENGTH,LEXICAL_CENGTH,MTX$_LRLEN ;%LENGTH 

0029 «49% SMACTINSERT-SYM LOCATELEXICAL LOCATE -MTX$-LXLOC,- :%LOCATE | 

00 9 97 MACSLEX_OP_LIST 

00000000 99 .PSECT MACSRO_CODE_MAC,NOWRT,GBL,LONG 


—_— ee  ———  — ————————————— — ——  __---OrrmaOwwrro er - rvvV1''" OOOO ne 
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12 
++ e+ Sa SCAN MACRO BODY 16-SEP-1984 t Oe: 03: 8 eae Macro V04-00 
v04- MACSBODY_SCAN SCAN MACRO BODY “SEP-1984 MACRO.SRCJBDYSCN.MAR; 1 


0 101 .SBTTL MACSBODY_SCAN SCAN MACRO BODY 
8 i § ;++ 
8 4 t FUNCTIONAL DESCRIPTION: 
0000 1 6 : THIS ROUTINE IS CALLED TO SCAN A MACRO, REPEAT OR INDEFINITE 
9000 i. REPEAT BODY AND READ IT INTO VIRTUAL MEMORY. 
2093 109 : CALLING SEQUENCE: 
000 14 : CALLX X,MACSBODY_SCAN 
2000 118 : INPUTS: 
000 114: 
9000 115: 4 (AP) POINTER. 19 WHERE 19 START STORING TEXT 
000 116 : B(AP) NO. OF BYTES LEFT IN BLOCK POINTED TO BY 4(AP) 
9000 WV : 12(AP) BOINVERY 10 MACRO ARGUMENT LIST OR O IF NO ARGS 
0000 119 : OUTPUTS 
9000 121 : RO 0 IF NULL MACRO BODY, ELSE NON-ZERO 
0000 138 : THE MACRO TEXT WILL BE STORED AT THE APPOINTED LOCATION. ANY 
0000 124: ADDITIONAL PAGES REQUIRED WILL BE GOTTEN AND THE PAGES WILL BE 
0000 125: LINKED INTO THE MACRO NAME BLOCK PAGE LIST (MNB$L_PAGP). UNLESS 
0000 126: FLGSM_RPTIRP IS SET THE ADDITIONAL PAGES WILL BE COUNTED IN THE 
0000 127: NUMBER OF PAGES USED TO DEFINE MACROS. 
0000 128: 
$000 180° 
0000 13) MACSBODY_SCAN:: 
01c0 0000 1 : “WORD “M<R6,R7,R8> ;REGISTER SAVE MASK 
E D4 0002 13 CLRL oe SASSUME NULL MACRO BODY 
10N8 Foe Re BO 0009 «1388 ron. (AP eee SBOINT TO THEBLOEKSS 
57 O08 AC 06 C3 000D 136 SUBL3 #6,8(AP),R7 [GET CHARACTER COUNT AND LEAVE 
0012 137 ‘ROOM FOR LINK FLAG WORD AND LINK 
0A 14 0012 138 BGTR 208 ‘BRANCH IF THERE IS ROOM 
88 FE BF 99 0014 139 CVTBW  #MTX$_TXTLNK, (R8)+ *NO=-START WITH A LINK 
FFES' 30 0018 140 BSBW  MACS$ACL_1_PAGE ALLOCATE A PAGE 
0343 = 30 0018 141 me BSBW MACSVSTO. GET_O :SETUP LINK 


<z 


68 04000009 8F CA 
OE OOOS'CF €E8 
00 68 05 €3 


BICL2 #FLGSM_ ACLCHRIFLOSM. CONT! FLGSM =SPLALL (RTT) D0 NOT PASS ALL CHARS 
BLBS _W“LST$G -HACRODEF +SYMSL VAL 208 {BRANCH IF LISTING MACRO DEFS 
SINTOUT_LW INTS-SETLONG, <#0,#MACS IST_IT> ;NO--SEND TO PASS 2 

20$: BBCS “#FLG$V_ENDMCH, Sai4y: 30$ oe chu SOIRECTIVE CHECKING 


: HERE FOR EACH NEW CHARACTER IN THE LINE 


MACSBDYSCN SCAN MACRO BODY 16-SEP-1984 02:03: AX/VMS Macro V04-00 Page 5 
v06-000 MACSBODY_SCAN SCAN MACRO BODY eset 7 9¢ 05:08 MACRO. SRCJBDYSCN.MAR; 1 wr Was 
1€ ; 

Bie + COME HERE AT THE BEGINNING OF EACH NEW LINE. THE ADDRESS OF THE COUNT 
1E : WORD FOR THIS LINE IS STACKED SO WE CAN STORE THE LINE COUNT THERE AT 
1€ : THE END OF THE LINE. FIRST WE MUST CHECK TO SEE IF THERE IS ROOM TO 
iE : STORE THE COUNT WORD. IF NOT, GET A NEW PAGE AND SET THE SPECIAL 

E : COUNT WORD LINK FLAG. 
E ° 
e BODY_SCAN_LOOP: 
00 68 22 eS : BBCC  #FLGSV_SPECOP,(R11),.+1 ;CLEAR SPECIAL OPERATOR FLAG 
Dp P :SAVE PTR TO BEGINNING OF 
50 «(57 08 C 4 
D 14 8 SIF GTR YES 
88 FE BF 99 A CVTBW #MTX$_TXTLNK, (R8)+ tNO==START WITH A LINK 
FFCF® 30 E BSBW MACSACL 1_PAGE SALLOCATE AP AGE 
0390 0 1 BSBW vSTO "SET O :SETUP LINK 
6— 58 00 4 MOVL RBC eSB) ‘UPDATE BEGINNING OF LINE PTR 
88 BG 7 10$:  CLRW (RB)+ SCLEAR BYTE COUNT (FILLED IN LATER) 
56 4 9 CLRL Re SINIT COUNT OF CHARS STORED 
57 02 C2 B SUBL2 #2,R7 ;DECREMENT BYTES REMAINING 
SA  QOOO'CF 9A 3 MOVZBL U°MACSAB.L NEBF ,R10 COPY 1ST CHAR IN CASE "';°' 
A 
A 
F 
D 
1 
1 
1 
1 
4 
6 
B 
D 
0 


| 

| 

| 

| 

LINE | 

SuBL #8,R7,RO i SEE 1F ROOM FOR COUNT, TXTLNK, AND LINK 


BA a a at at at tn tt ak at kk kk kk kd a tt tt 
DMDOOOO OO OOO 09.0000 09 09 09 09 09 09 09 SINISE SSID DSI DDO ADS ITT 
SONA EWN $$ 9 OONA NE WIN  O ODNIAUE WIN (OOD NAUE WA 0 OONOUES WN OOONOus 


25 SA 91 S0$: CMPB R10, #°A/%/ ;POSSIBLY A LEXICAL OPERATOR? 
a. iz BNEQ 35$ SIF NEQ NO 
01 OOOO'CF 01 CMPL W*MACSGL_MCLVL,#1 : In outer macro (the macro being defined)? 
05 12 BNEQ 5$ 3; No if NEQ, go not process lexical fns 
00E6 30 BSBW SCAN_PERCENT  YES=-CHECK K IT OUT 
EF 11 BRB 30$ sCONTINUE SCANNING WITH NEXT 
;CHARACTER AFTER THE OPERATOR 
OD SA 91 35$: CMPB R10,#CR END OF LINE? 
3¢ 13 BEQL 40$° Ht phen YES--DO END OF LINE PROCESSING 
02 E1 7 BBC bree) SYM_C ANCH IF a ten CANNOT 
39 0000°CA 9 8 CASK Re AB(RIO), abs sSTART A SYMBOL 
OOOO'CF DD D PUSH Ba RAC SGC™ LINEPT ; Save Line pointer 
6B 01 gs 081 BISL #FLGSM ACLCHR, (R11) 3; Pass all characters 
FF79" 30 0084 BSBW MACSSYASCNUP 3; Scan a symbol 
68 0} CA 0087 Bitl2 | #FLGSR vALLCHR, (R11) : Clear ALLCHR flag | 
4 8—D0 A POPL fi 3 ceget Raye}: and get Line pointer | 
3A USAC? 08D CMPB R10,#*A/:/ 313 IT A LAB 
2606«6©13'—«00 8 BEQL 50$ s1F EQL VESOCbON'T CHECK IT 
26 68 O05 €5 00 BBCC #FLGSV_ENDMCH,(R11),60$ ;NO--CHECKING DIRECTIVES? 
3 6 3; (AND DISABLE CHECKING) 
2E 0001'CF 2 6 CMPB W*MACSAB_TMPSYM+1,#*A/. /YES=-CAN SYMBOL BE A DIRECTIVE? 
1F 12 098 BNEQ s1F NEQ NO 
55  00000000' eke 43 09D MOVAB MAC$G_SPLMC_DIR,RS sPOINT TO LIST 
FF59" 3 AS BSBW na i at LIST ;SEE IF SPECIAL MACRO DIRECTIVE 
ig 50 +4 A7 BLBC ;BRANCH IF NOT FOUND 
8 81 g AA JSB ae VAL(R1) sYES--PROCESS THE DIRECTIVE 
0000'CF D OAD TSTL w* ont GL _MCLVL sSTILL IN A MACRO? 
43 14 0061 BGTR s1F GTR YES 


=: 


MACSBDYSCN SCAN MACRO BODY 16-SEP-1984 Oe: 03: 98 yAKe yas Macro V04-00 
v04-000 MACSBODY_SCAN SCAN MACRO BODY -SEP-1984 74 MACRO.SRCJBDYSCN.MAR; 1 
00 1] 3 40$: BRwW =] 4 _SCAN_END de fom S| 
j Be 42$: BRB 100 ‘BRAN NCH AID 
00 68 OS i€ B 50$: BBCS FFLESV_ENDMCH, (R11) ,608 + JUST SCANNED AL fajtr ALLOW 
BC 4 SCHECKING OF DIRECTI ves 
+! 5 60$: 
+: § ; SEE IF A MACRO ARGUMENT 
55 OC AC ) B § MOVL 12(AP) RS ;POINT TO MACRO ARG NAMES 
M3 1 C 10 BEQL :_If EQL no macro argument names 
FF3B° 3 0c 11 65$: BSBW mACESRC LIST :SEE - A. MA nw ARG 
38 23 3 5 \¢ BLBC : Branch ifn 
27 FF A 1 C 1 CMPB -1(RB) ,#*A/"/ iVES=oCONCATENATION PRECEDING 
Bare 14 ae ARG? 
06 6 Occ 15 BNEQ 70$ 3;1F NEQ NO 
58 d7 O0C 1 DECL R8 «TESS CBACKUP POINTER 
57 +) it 1 INCL R?7 Hay ad +d COUN 
56 ) OD 18 DECL oS : DECREMENT COUNT OF oo STORED 
50 02 00 00D4 19 70$: MOVL RO sSET TO STORE TWO BYTES 
51 BP 00D7 0 PUSHL Ri + SAVE MAB ADDRESS 
0269 0 00D9 1 BSBwW MACSVST : 
88 FF 8F 90 O0DC § MOVB #MTX$_AR Ose (R8)+ *MARK MACRO ARG 
00 68 ¢¢ E2 O0E0 BBSS tos. SPECOP, (R11),.+1 FLAG SPECIAL seokeee ON LINE 
1 B8EDO O0E4 24 POPL R1 : RESTOR .. MAB ADDRESS 
88 05 Al 90 00E7 225 MOVB MABSB_ARGNO(R1), (R8) + ;STORE ARGUMENT NUMBER 
27 5A 91 OOEB $§ CMPB R10, #*A/'/ *POST=CONCATENAT ION? 
03 12 OOEE § BNEQ 80$ i1F NEQ NO 
FFOD' 30 OOFO 8 BSBW MACSGETCHR :YES--EAT THE QUOTE 
FF6B 31 Oaee 50 80S: BRW 30$ :PROCESS NEXT CHARACTER 
Bere 1 ; COPY DIRECTIVE TO OUTPUT 
52 0000°CF 9E OOF6 33 $0s: MOVAB W*MACSAB_TMPSY1,R2 ;POINT TO DIRECTIVE NAME 
53 82 9A OOFB § 4 MOVZBL (R2)+,R 3;GET LENGTH OF NAME 
OA 11 OOFE 35 BRB 98$ 
0100 36 : 
8190 7 ; Copy non-argument string to output 
199 8 ; 
010 9 95s: 
52 54 9} C3 Hs 40 SUBL #1,R4,R2 ; Get address of string 
53 0000'CF 4 ¢3 4 rt ons SUBL R4,W°MACSGL_LINEPT,R3  ; and compute its size 
0222 30 10A 48 BSBW MACSVSTO_STR sCOPY TO VIRTUAL BUFFER 
E4 11 ! rf: BRB 80$ sPROCESS NEXT CHARACTER 
3 : $$ ; CHARACTER NOT SYMBOL CONSTITUENT 
020D 3 10F re 100s: BSBW MACSVSTO_CHAR ;STORE THE CHARACTER 
6B 1 ¢ Vig 4 BISL2 #FLGSM_ACLCHR, (R11) *PASS alt CHARS (SEMICOLONS) 
FEE8' 11 50 BSBW MAC :GET NEXT CH 
D7 68 O00 €4 118 2) BBSC #FLGSV_ALLCHR,(R11),80$ ;CLEAR ALLCHR FLAG AND CONTINUE 
11C¢ § 7SCA NNING,. 
11C 5 
11C¢ 2 BODY_SCAN_END: 
00 68 1A sC€ES 11C 5 BBCC #FLGSV_SPLALL,(R11),.+1 seh eae sPEctAt ALL CHARS FLAG 
eDp 139 2$ POPL R1 ;GET ADDRESS TO STORE LINE LENGT 
05 68 2 E 1 5 BBCC #FLGSV_SPECOP,(R11),10$ ‘BRANCH IF NO SPECIAL OPERATORS 
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MACSBDYSCN SCAN MACRO BODY 16-SEP-1984 02:03: AX/VMS Macro v04-00 Page ' 
v04-000 MACSBODY_SCAN SCAN MACRO BODY aes 7 94:03:98 YRACRO SRE BDYSCN.MAR; 1 . &) : 
1 74 ; 
1 é 75 ; THIS ROUTINE IS CALLED WHEN A PERCENT SIGN IS ENCOUNTERED WHILE LOADING 
1 06 ; MACRO TEXT INTO CORE. IT COMPLETELY PROCESSES THE LEXICAL OPERATOR 
156 277 ; INTO SPECIAL MTX$_ BYTES AND RETURNS WITH THE CHARACTER FOLLOWING ] 
1 6 i: : THE LEXICAL OPERATOR, ] 
1 79 ; ] 
156 0 ] 
126 1 SCAN_PERCENT ] 
QOOO'CF oD 13 : W*MACSGL_LINEPT sSAVE CURRENT LINE POINTER ] 
68 01 c8 15A BISL2 #FLGSM_ACLCHR, (R11) SPASS ALL CHARACTERS BACK ] 
FEAO' 30 0150 4 BSBW = MACS ‘GET THE NEXT CHARACTE ] 
6B 91 CA 016 5 BICL2 st LG A -ALLCHR (R11) : CLEAR ALL CHARACTER FLAG ] 
2 €1 016 $ BBC #CHRSV-SYM_CHR,- “BRANCH IF CHARACTER ig NOT A SYMBOL ] 
23 0000'CA 163 Be U'RACSRS. CASK. faB(R10),10$ : CONSTITUENT 
199 89 : ; MAYBE WE HAVE A LEXICAL OPERATOR. SCAN THE SYMBOL 
FE94" 30 0169 291 BSBW MACSSYRSCNUPI ZACCUMULATE THE SYMBOL NAME ] 
28 «6«SA (91 =«(016C 3¢ CMPB a :SHOULD STOP ON LEFT PAREN ] 
1B 12 016F 9 BNEQ 10$ :1F NEQ NOT A LEXICAL OPERATOR ] 
55 0030'CF 3 0171 94 MOVAB W*MACSLEX_OP_LIST,RS SLOAD UP OPERATOR NAME ayABLe ADDRESS ] 
FE87" 30 0176 95 BSBW MACSSRC_LIST™ SSEE IF A LEXICAL OPERATOR ] 
10 50 €9 0179 96 BLBC RO,10$ ~ sIF LBC NO--FIX UP A ] 
50 8EDO O17C rad POPL RO CLEAR SAVED LINE POINTER FROM STACK ] 
05 Al DD Oi 98 PUSHL SYM$L_VAL(R1) SYES=--STACK PROCESSOR A ] 
5A 09 Al 9A 182 99 MOVZBL SYM$W-FLAG(R1),R10 :GET THE MTX IDENTIFIER BYTE ] 
0A 6B 22 €E2 0186 300 BBSS  #FLGS$U_SPECOP,(R11),20$ :FLAG SPECIAL OPERATOR ON LINE AND ] 
08 11 O18A 01 BRB Hi :GO STORE THE MTX BY L 
018¢ 0¢ SNEXT CHARACTER, AND DISPATCH L 
018C 30 :T0 PROCESSOR L 
0000'CF 8EDO gist 04 108: POPL WARACSGL INEPT RESTORE OLD LINE POINTER L 
5A 25 = 0s«O0197 05 MOVL #*A RESTORE THE PERCENT SIGN L 
0188 30 0194 306 20$:  ®BSBW macsus S15" :SEND IT TO THE OUTPUT L 
6B 01 c8 0197 307 BISL2 #FLGSM ACC CHR. (R11) [PASS ALL CHARACTERS i 
FE63° 30 BIgA 08 BSBW MAC$G ‘GET NEXT CHARACTER L 
68 01 (CA 0190 309 BICL2 #FLGSM_ALLCHR, (R11) :CLEAR ALLCHR FLAG L 
05 O1A0 310 RSB S RETURN t 
I 
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PROCESS XEXTRACT LEXICAL OPERATOR -SEP=1984 Z 8%: 03: 8 ERACRO. SRE BDYSCN.MAR; 1 
1a 13 .SBTTL PROCESS X%EXTRACT LEXICAL OPERATOR 
1A1 14 344 
tal 13 ; FUNCTIONAL DESCRIPTION: 
1A1 5 : THIS ROUTINE PROCESSES THE XEXTRACT LEXICAL OPERATOR. THE 
tal 18 ; ARGUMENTS TO THE OPERATOR ARE XEXTRACT(POS,LEN, STRING). 
Olay 854 7 
1A1 : LEXICAL_EXTRACT: 
OA 10 1A BSBB 108 :GET THE POSITION AND SKIP COMMA 
me 1A 4 BSBBOtsé«dCOS: [GET LENGTH AND SKIP THE COMMA 
0006 30 01A5 5 BSBW  GET_LEX my RING ‘GET THE STRING TO EXTRACT FROM 
5150 €9 b1A8 § BLBC RO, CEXICAL_ARG_ERR BRANCH IF ERROR 
69 «11 148 f BRB LEXICAL_EN NB CK [FINISH UP 
OIAD 4 : GET A NUMBER AND SKIP THE COMMA AFTER IT--NO RETURN IF ERROR 
008F 30 O1AD 31 10$:  8SBW  GET_LEX_NUM :GET THE NUMBER 
07 30 E9 180 3¢ BLBC —_ RO, ‘BRANCH IF ERROR 
0130 30 018 3 BSBW SséLEX SKIP_COMMA :SKIP THE COMMA 
01 50 33 3188 He BLBC RO,20$ ‘BRANCH IF ERROR 
8E DS O1BA 336 208: TSTL (SP) :CLEAR CALL FROM STACK 
3E 611° «+01BC 7 BRB LEXICAL_ARG_ERR SPROCESS THE ERROR 
ee 
O1BE 40 : FUNCTIONAL DESCRIPTION: 
01BE 4¢ : THIS ROUTINE PROCESSES THE X%LOCATE LEXICAL FUNCTION. THE 
O1BE 343: ARGUMENTS TO LOCATE ARE %LOCATE (SUBSTRING, STRING,STARTPOS), 
O1BE a4 : WITH THE STARTPOS ARGUMENT BEING OPTIONAL. 
a8 ho 
O1BE 348 LEXICAL_LOCATE: 
00BD 30 O1BE 349 BSBW | GET_LEX. STRING :GET THE SUBSTRING TO LOCATE 
38 50 4 01C1 50 BLBC RO,CEXITAL_ARG_ERR ;BRAN cH IF ERROR 
11F 01¢4 351 BSBW LEX SKIP_COMMA ‘SKIP THE CO 
32 50 E9 01¢7 3 BLBC RO,CEXICAL_ARG_ERR :BRANCH IF ERR 
081 30 O1CA 35 BSBW GET _LEX STRING :GET THE STRING. TO LOCATE IN 
2¢ 50 €9 O1CD 354 BLBC 3=s_- RO. CEXICAL _ARG_ERR ‘BRANCH IF ERROR 
FED" 0 109 55 BSBW mat SKIPSP :SKIP SPACES 
29 SA 91 01D 36 CMPB  saR10, #*A/)/ :GET TO CLOSE PAREN? 
10 13 106 5 BEQL 208 [IF EQL YES=-NO STARTPOS ARGUMENT 
2c SA 91° «01D 58 CMPB =saR10,, #*A/,,/ :NO-=SYop ON A COMMA? 
9 iF 10B 40-359 BNEQ 10$ ‘IF NEQ NO--ERROR 
FE20" ; 1DD 360 BSBW MACSGETCHR SYES=--GET NEXT CHARACTER 
005¢ 0 160 61 BSBW GET : X_ [GET STARTPOS ARGUMENT 
0c 50 «EB «COTE 6¢ BLBS =_-RO,,3 SIF LBS OK 
14 «11 166 63 10$: BRB LEXICAL_ARG_ERR :60 TO ERROR ROUT INE 
5A EC ef 30 1E 64 20$: MOVB #MTX$ NOMORE R10 [NO STARTPOS=-FLAG IT 
0130 1EC 365 BSBW  MAC$VSTO OCHA HAR [STORE IT AWAY 
SA 39 90 O1EF 66 MOVB aAyyy oT SRESET THE PAREN 
2 11 O12 367 308: BRB LEXICAL_END_CK SFINISH U 
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MACSBDYSCN 
y0s.000 


SCAN MACRO BODY 
PROCESS %LENGTH 


1F4 4 
1F4 9 
1F4 ? 
1F4 i 
1F4 ? 
1F4 74 
1F4 75 
1F4 6 
O1F4 7 
pire 4 
1F4 7? 
1F4 0 
0087 30 QIF4 1 
0250 €9 O1F7 ¢ 
1A 11—COO1FA : 
O1FC 4 
O1FC 85 
ee 
oe 0 BO 
SA DD O20A 389 
5A Bs ogee 90 
10E 0 O20E 91 
5A 8EDO OSi4 8 
16 11 0214 9 
8516 394 
16 $2 
0216 96 
0216 97 
0216 398 
0216 99 
0216 400 
0216 401 
0216 186 
0216 40 
FDE7" 30 0216 404 
29, 5A «91 «0219S 405 
OE 13 O21C $36 
O2iE 40 
4 408 
FDD4' 30 9 409 
C 410 
C 411 
OD SA 91 C tig 
9p 13 F 41 
29 A 91 1 414 
05. 13 4 415 
Foc?" 30 6 218 
‘7. 3 9 41 
FOC2* 30 8 rt 
O23—E 41 
05 O23— 420 


LEXICAL OPERATOR 


16-SEP-19 
B73Ep=19 


Bt 89:27:98 FAACKOsneSeyeencour:1 =e 


-SBTTL PROCESS ZLENGTH LEXICAL OPERATOR 


LEXICAL_LENGTH: 
BSBW 


ae 
FUNCTIONAL DESCRIPTION: 
Hak ROUTINE PROCESS cs 


ARGUMENT TO THE OPERA 
ARGUMENT NAME. 


GET eS iasae 


BLBC RO,T 
108; BRB LEXICAL_END_CK 
LEXICAL_ARG_E 
starsut TX INT$_CHKL 
te OERR BADLERARG 
BSBW” MACSERRORLN 
PUSHL R10 
CLRL R10 
BSBW MACSVSTO_CHAR 
POPL R10 
ARB F IND_LEX_END 


p++ 
: FUNCTIONAL DESCRIPTION: 


; THIS ROUTINE CHECKS THAT THE LEXICAL OPERATOR WAS TERMINATED 
; PROPERLY AND ISSUES AN ERROR TO PASS 2 IF IT WAS NOT. 


LEXICAL_END Ck: 


SBO 


20$: 
LEX 


B 
ICAL “een! 
RSB 


LE it OPERATOR. THE 


XIC 
A STRING OR A DUMMY 


READ STRING 
;BRANCH IF THERE WAS AN ERROR 
FINISH LEXICAL OPERATOR PROCESSING 


: ALIGN SOURCE AND LISTING 
3; Get the pessege code 
i 1SSUE TO P 


R1 
SEND A , TO CANCEL 
TORE IT 


RESTORE R10 
:SCAN TO END OF LEXICAL OPERATOR NOW 


yh SPACES 
DID et END PROPERLY? 


tT 

:NO=ALIGN SOURCE AND LISTING 
3; Get message code 

ISSUE ERROR TO PASS 2 


:END, OF LINE? 
ENO-=ENO OE OPERATOR? 
NO-=GET ollex! CHARACTER 


KEEP 
:GET CHARACTER AFTER RIGHT PAREN 


uz 
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MACSBDYSCN SCAN MACRO BODY 16-SEP-1984 02:0 AX/VMS Macro V04-00 Page 
Hyatt SCAN LEXICAL OPERATOR ARGUMENT -SEP-1984 t BF 3: of YRACRO. SRe BDYSCN.MAR; 1 . 
,.-% ; .SBTTL SCAN LEXICAL OPERATOR ARGUMENT 
SORE ces 
i 4 5 : FUNCTIONAL DESCRIPTION: 
3e : : : THIS ROUTINE IS CALL LED T O SCAN ONE LEXICAL OPERATOR ARGUMENT. 
F 4 8 THE POSSIBLE ARGUMENTS ARE: 
F 4 0 : STRING ARGUMENTS: 
xy é : <STRING_ENCLOSED_IN_ANGLE_B cKET $> 
F 6433: “ASTRING ENCLOSED_WITHIN_ BeLin TERS_(@_IN_THIS_CASE)@ 
° : ? : ; DUMMY_ARG_NAME 
0 r 4 6 ; NUMERIC ARGUMENTS: 
O23F 438: DECIMAL_NUMBER 
8 : $23 3 ABSOLUTE _ SYMBOL _NAME 
0 F 441 : INPUTS: 
Oe3t ces ; 12(AP) 0 OR POINTER TO MACRO ARG NAMES (MAB'S) 
Oe3F 445 ; OUTPUTS: 
O23F 447: RO 0 ERROR ENCOUNTERED 
O23F 4468; 1 OK 
O23F 449 :=- 
set 
0 3 43¢ .ENABL LSB 
023F 453 GET_LEX_NUM: :READ A NUMBER 
FDBE’ 30 O23F 454 BSBW WACSSKIPSP SKIP ANY SPACES 
04 £0 0242 455 BBS #CHRSV ANCH IF IT IS A NUMBER 
1D 0000'CA 034 456 W"MACSEB CASK fAB(R10), sig pee: 
FOBS' 30 0248 457 BSBW MACSSYMSCNU ;NO=-TRY TO SCAN ABS_SYM_NAME 
03 50 «EB 048 438 BLBS RO, 10$ ‘IF LBS GOT SYMBOL NAME 
024E 460 ; NUMBER EXPECTED, DID NOT FIND EITHER A DECIMAL_NUMBER OR AN 
0 aE 461 ; ABSOLUTE_SYMBOL_NAME. 
50 b4 9 4f aes : CLRL RO :RETURN FAILURE 
FDAC* 3 6 51 465 10$:  BSBW  $MACSINSUSRSYMTB :FOUND SYMBOL NAME=-LOOK UP OR ENTER 
54 466 [IN USER SYMBOL T 
51 oD 0254 467 PUSHL R) SSAVE § YHBOL L BLOCK AD ADDRESS 
50 05 p 0256 468 MOVL #5 [SET TO S 
00E9 p 0259 469 BSBW Aattus PREPARE To” E ORE THEM 
88 €D 8 9 5c 470 MOVB = #MTX$_ sr emaoR. (RB) + :EIRST BYTE IS MACRO OPERATOR 
60 471 ; FLAGGING SYMBOL BLOCK ADDRESS 
88 8EDO $0 47 POPL (RB)+ *STORE THE SYMBOL BLOCK ADDRESS 
7A 63 473 BRB 300$ :RETURN WITH SUCCESS 
63 478 > EXPECTING DECIMAL_NUMBER, AND FOUND A DIGIT--READ THE NUMBER IN 
58 DD 0968 t38 $0$:  PUSHL R8 :SAVE R8, WHICH DN UMBLR WIPES 
F096" 30 0267 478 BSBW MACSDNUMBER [READ THE NUMBER 
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MACSBDYSCN SCAN MACRO BODY 1 =SEP- 4 02:0 AX/VMS Macro V04-00 Page 
v04=000 SCAN LEXICAL OPERATOR ARGUMENT -}38% BF: os: 38 ERACRO. SRE BDYSCN.MAR; 1 ° 
58 BED 6A 479 POPL ft sRESTORE R8 
50 (05 p gp 480 MOVL #5,R0 ‘SET TO STORE 5 BYTES 
00D2 481 BSBW  MACS$VSTO_SET *PREPARE TO STORE THEM 
88 €& BF 90 0273 4 ; MOVB  ¥#MTX$ _LITVAL, (R8)+ :FLAG LITERAL VALUE FOLLOWS 
88 OO00'CF DO 027 4 MOVL W*MACSGL_VALUE, (R8)+ iSTORE THE VALU 
a Ti 6 As 484 BRB 300$ *RETURN WITH SUCCESS 
6 7E 486 : STRING IS EXPECTED 
O27E 4 
O57E 488 GET _LEX_STRING: 
FD7F* 30 O27E 489 “BSBW  MACSSKIPSP :SKIP SPACES 
02 £0 0 8 490 BBS #CHRSV SYM ‘BRANCH IF FORMAL ARG NAME 
36 0000'CA 0 3 491 W*MACSAB_ CASK. ReaB(RI0). 260$ ; 
0987 198 : MUST BE EITHER A STRING IN ANGLE BRACKETS OR AN UPARROW-DELIMITER 
0287 494 : TYPE STRING. 
0287 495: 
SE 8F SA 91 0287 496 CMPB se R10,, #*A/*/ :1S IT THE UPARROW? 
08 13 0288 497 BEQL ©: 1208 SIF EQL Y 
3c)6CO SA O91, «028D = 498 CMPB se R10, #*A/</ tNO=-ANGLE BRACKET? 
03 13 0290 499 BEQL 1208 SIF EQL YES 
50 04 0292 500 CLRL ~—_ RO ‘RETURN ERROR 
05 0294 501 RSB 
00 68 21 E3 0295 308 120$: BBCS  #FLGS$V LEXOP, (R11),.41 FLAG LEXICAL OPERATOR CALL 
FD64" 30 0299 50 BSBwW RACSRAC A ARG_SCN ; SCAN THE MACRO ARGUM 
00 68 21 +€5 029¢ 504 BBCC  #FLGSV *CEXOPS (R11),.+1 CLEAR LEXICAL OPERATOR FLAG 
50 DD O2A0 505 PUSHL RO :SAVE LENGTH OF ARGUMENT SCANNED 
50 03 CO O2A2 506 ADDL2 #3,R0 [FIGURE LENGTH NEEDED 
0205 507 :(MTX$_LITSTR AND LENGTH WORD) 
0090 30 02A5 508 BSBW MACS$VSTO_SET ‘SET TO STORE THE STRING 
88 EF 8F 90 0248 509 MOVB #MTX$_LITSTR,(R8)+ :SET INDICATOR 
50 8EDO O2AC 510 POPL RO :GET THE STRING COUNT BACK 
50 BO O2AF 511 MOVW RO, (RB)+ SSTORE THE COUNT WOR 
68 O000'CF 50 28 O2B2 512 MOVC3 RO, *OSMACSAB. TMPBUF,(R8) :COPY THE ARGUMENT OUT 
53 00 «(0288 «O53 MOVL R3.R8 [UPDATE THE POINTER 
22. «11 02BB 314 BRB 8 Obs ‘RETURN WITH SUCCESS 
6500 218 : IT APPEARS WE WILL BE SCANNING A DUMMY ARGUMENT NAME 
FD40' 30 O2BD 518 200$: BSBW MACSSYMSCNUP :SCAN THE DUMMY ARG NAME 
55 Oc AC DO O20 519 MOVL  12(AP),R5 [POINT TO MACRO ARG BLOCK LIST 
1D (13 O3c4 320 BEQL 310 [IF EQL NO ARGS--O0PS 
FD37" 30 0206 521 BSBW  MACSSRC_LIST [LOOK UP THE DUMMY ARG 
1750 =«—«E9 0 9 386 BLBC RO, 310$ ‘BRANCH IF NOT FOUND 
51 DD Occ 5§ PUSHL R11 SAVE ADD 
50 02 90 O2cE 524 OvB #2 RO 3SET TO STORE 2 BYTES 
0071 30 0201 525 BSBW MACSVS ‘SET UP FOR TH 
88 FF 8F 90 0204 526 MOVB = #MTXS_ oARGRRK. (R8)+ i STORE ARG MARKER BYTE 
51 BEDO 0208 527 POPL R11 :RESTORE MAB ADDRESS 
88 O5SA1 90 0 DB 3 8 MOVB § MABSB_ARGNO(R1),(R8)+ STORE ARG NUMBER 
02br 3 9 : COME HERE TO SET SUCCESS AND RETURN 
50 01 00 DF : $00$: MOVL #1,RO ZELAG GOOD ARGUMENT 
50 4 eS 4 310$: CLRL RO [FLAG AN ERROR 
05 O2E 5 RSB 
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voaags 


D 13 


MACSBDYSCN SCAN MACRO BODY Ig-SEB-198 
v0G- SCAN LEXICAL OPERATOR ARGUMENT -SEP=19 
E 38 p++ 
f 33 : FUNCTIONAL DESCRIPTION: 
6 541: THIS ROUTINE SKIPS SPACES 
£6 4¢ : WITH THE CHARACTER FOLLOWIN 
8 E6 43; 
E6 44 j-- 
0 £6 545 
E6 546 LEX_SKIP_COMMA: 
FD17" 30 O2E6 547 6SBw MACSSKIPSP 
2c SA 91 0269 548 CMPBsaR'10, #*A/,,/ 
03 «13 OeeC 549 BEQL 10% 
50 D4 OEE 550 CLRL = RO 
05 O2F0 551 RSB 
FDOC' 30 O2F1 552 10$:  BSBW  MACSGETCHR 
50 01 DO O2F4 553 MOVL  #1,RO 
05 O2F7 554 RSB 


96203 :08 Yana Macro V04-00 


EXPECTS A COMMA THEN, AND RETURNS 
G THE COMMA. 


;SKIP SPACES 
4 {i ¥ 4 TO A COMMA? 


: L 
;NO--FLAG AN ERROR 


READ CHARACTER AFTER COMMA 
sFLAG SUCCESS 


MACRO.SRCJBDYSCN.MAR; 1 


<= 
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MACSBDYSCN SCAN MACRO BODY 16-SEP-1984 02:0 AX/VMS Macro v04-00 Page 15 
v04-000 SPECIAL DIRECTIVES SCANNED DURING BODY_S 5=-SEP-1984 Z Bf: 03: 3 ERACRO. SRe BDYSCN.MAR; 1 . 10) 
F 3) .SBTTL SPECIAL DIRECTIVES SCANNED DURING BODY_SCAN 
F 58 ite | 
F 59 i : FUNCTIONAL DESCRIPTION: | 
F 61; THIS ROUTINE IS CALLED WHEN A .REPT, .IRP, .IRPC, OR | 
0 F o¢ : ACRO IS SCANNED WHILE READING THE MACRO BODY INTO 
6 563 ;: CORE. THE MACRO DEFINITION LEVEL IS INCREMENTED SO 
8 ; 26 : THAT booy SCAN KNOWS WHEN THE PROPER .ENDM HAS BEEN | 
O2F8 66 ; 
8 F 67 i-- 
F 68 
O2F 569 MACSMAC_IN_MAC:: - 
OOOO'CF 06 O2F8 570 INCL W*MACSGL_MCLVL ;BUMP THE MACRO DEFINITION LEVEL 
05 O2FC 571 RSB 
O2FD 276 
OcFD = 573 itt 
Orb 20 : 3 FUNCTIONAL DESCRIPTION: 
O2FD 576 ; THIS ROUTINE IS CALLED WHEN A .END, .ENDM, OR .ENDR IS 
O2FD 4577; SCANNED IN BODY_SCAN. THE MACRO DEFINITION LEVEL I 
O2FD = 578 ; DECREMENTED, AND IF MACRO DEFINITIONS ARE NOT BEING 
O2FD = 379 ; LISTED, THE LIST_IT FLAG IS CLEARED. 
O2FD 580; 
ogee 581 ;-- 
O2FD 286 
O2FD 583 MACSMAC_DEF_END:: 
QOOO0'CF 07 oer 584 “pect W°MACSGL_MCLVL sDECREMENT MACRO DEF. LEVEL 
14 0301 585 BGTR 10$ y1F GTR STILL IN A MACRO 
FCFA' 30 0303 586 BSBW MACSCREF_DIR CREF DIRECTIVE IF CREFFING 
0306 587 jer STILL POINTS TO SYMBOL BLOCK) 
OE OOOS'CF €E8 0306 288 BLBS W*LST$G_MACRODEF +SYM$L_VAL,10$ :BRANCH IF LISTING MACRO 
0308 590 SINTOUT _LW INTS_SETLONG,<#0,#MACSGL_LIST_IT> ;NO--OUTPUT FLAG 
05 0319 591 10$: 
O31A 298 
O31A 859 3+? 
gai4 age 3 3 FUNCTIONAL DESCRIPTION: 
031A 596 ; THIS ROUTINE IS CALLED WHEN CERTAIN DIRECTIVES (.ERROR, .WARN, 
O31A 597; .PRINT, .ASCIX) ARE SCANNED. DIRECTIVES ARE SPECIAL IN 
O31A = 598 ; THAT THEY MAY HAVE SEMI-COLONS AS PART OF THEIR SYNTAX. THEREFORE 
6 1A 599 ; THE SPECIAL ALL CHARACTERS FLAG (SPLALL) IS SET SO THAT THESE 
1A 600; SEMI-COLONS ARE NOT TAKEN AS COMMENTS. 
O31A 601: 
Baia o0¢ 3-- 
1A =60 | 
“4 604 MACSSET_ALL_CHR:: 
00 68 #1A~ €3 1A 605 “BBCS #FLGSV_SPLALL,(R11),.41 ;SET SPECIAL ALL CHARACTERS FLAG 
05 O31E 606 $B :THAT'S ALL | 


CHARACTER IN R10 STORED INTO STRING 


MACSBDYSCN SCAN MACRO BODY 16-SEP-1984 4 02: 03: 08 YAX/VMS Macro V04-00 Page 16. 
v04-000 STORE CHARACTER INTO VIRTUAL MEMORY -SEP-1984 MACRO. SRCJBDYSCN.MAR; 1 (11) 
0 .SBTTL STORE CHARACTER INTO VIRTUAL MEMORY 
1 10 ;++ 
; FUNCTIONAL DESCRIPTION: 
! : : THIS ROUTINE STORES THE CHARACTER IN R10 INTO VIRTUAL MEMORY. 
: INPUTS: 
1 : RB PTR INTO VIRTUAL MEMORY 
: R7 COUNT OF BYTES LEFT IN THIS BLOCK OF VIRT. MEMORY 
; R6 COUNT OF CHARACTERS STORED 
: OUTPUTS: 
: Rg UPDATED 
: UPDATED 
: Re UPDATED 


HPRAAAAAAAAAAAAAAAASAAAAO SAA AA AAAS 


WWWNIWWINIAIANINIIinonononononononone nn 2 2 


COOOCCCOCCOCOOCOCOOCOOOOOOCOOOO 
MOoO>NUWT Sn on nnn on oon 
CON AWE WO OONOAOU SW OOOVNOUS Wh O0O 


MACS$VSTO_CHAR:: 
cS SuBL5 #7,R7,R0 i SEE IF ROOM FOR 2 CHARACTERS AND LINK 
10 BSBB MACSVSTO_GET :NO-=GET A NEW PAGE 
90 10$: MOVB R10, (R8)F STORE CHAR IN VM 
D6 INCL R6 SCOUNT CHARACTERS STORED 
D7 DECL R7 ‘DEC. COUNT OF REMAINING SPACE 
05 RSB ; DONE 


<2 
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MACSBDYSCN SCAN MACRO BODY 16-SEP-1984 02:03: AX/VMS Macro V04-00 
v04-000 STORE STRING INTO VIRTUAL MEMORY mets 84:05:98 YRACRO SRE BDYSCN.MAR; 1 
. $40 -SBTTL STORE STRING INTO VIRTUAL MEMORY 
F $46 3+ 
. rh 3; FUNCTIONAL DESCRIPTION: 
r o¢2 : THIS ROUTINE STORES A STRING INTO VIRTUAL MEMORY. 
032F ges : INPUTS: 
9 7 968 : 
F 649; R ADDRESS OF THE STRING 
O32F 650; S LENGTH OF THE STRING 
iH a $31 ; R CHARS STORED IN VM 
es § : Rp CHARS LEFT IN VM 
O32F 653; RB POINTER INTO VM 
O32F 654; 
3 F 655 ; OUTPUTS: 
ef 656 : 
O32F 657; R6,R7,R8 ARE UPDATED 
O3eF 658 ; STRING IS STORED 
O32F 659; 
Oagr 660 ;-- 
O32F 661 
O32F 662 MACSVSTO_STR:: 
Fs oe a 88 beet 66 SUBL3 =©R3,R7,RO iSEE iF ROOM FOR STRING 
02 14 0333 664 BGTR 10% IF GTR YES 
1F 10 0335 665 BSBB MACSVSTO_GET NO=-GET A PAGE 
as Sa Ge tH 666 10$: SUBL2 R3,R7 ‘DECREASE MOUNT LEFT 
56 53 CO O33A 667 ADDL R3,R6 INCREASE COUNT STORED 
68 62 53 28 033D 668 MOVC R3,(R2), (RB) :COPY INTO BUFFER 
58 53 DO 0341 669 MOVL R3,R8 ‘UPDATE THE VM POINTER 
05 0344 670 RSB DONE 
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MACSBDYSCN SCAN MACRO BODY 16-SEP-1984 02:03: AYX/VMS Macro V04-00 P 1 
Hyatt SETUP TO STORE INTO VIRTUAL MEMORY Breer bBe BTi27:98 FAACKO SReiBoYSeN mars 1 age 18, 
4 673 .SBTTL SETUP TO STORE INTO VIRTUAL MEMORY 
4 fe p++ 
? 4 3 FUNCTIONAL DESCRIPTION: 
4 r : THIS ROUTINE PREPARES TO STORE 'N’ BYTES IN VM. 
4 4 : INPUTS: 
45 681: RO NUMBER OF BYTES TO STORE 
a.) 2 ; : R COUNT OF BYTES STORED 
45 6 : R COUNT OF BYTES LEFT 
45 4: RB POINTER INTO VM 
0345 685; 
0345 6 6 : OUTPUTS: 
0343 688 ; R6,R7 UPDATED SO ALL CALLER NEEDS TO DO IS STORE BYTES (R8) 
0345 690 :-- 
0345 691 
0345 69¢ MACS$VSTO_SET:: 
50 DD 0345 69 PUSH RO s SAVE Me COUNT 
50 57 50 C3 0347 694 SUBL3 RO, R7,_RO SEE IF 00M 
02 14 0348 695 BGTR 108 iIF GTR ’ ES. 
07 10 0340 696 BB MACSVSTO_GET NO--GET A PAGE 
57 6€ C2 O34F SUBL2 (SP),R7 ~ ‘ADJUST THE COUNT LEFT 
56 «BE «=O C0s«0352—s« 698 DDL2 (SP)+,R6 SADJUST COUNT STORED 
05 0355 RSB ‘BACK TO CALLER 


<= 


FeO A ee ee ETON De I LTO Sa 
| 
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L BUFFER PAGE “SEP=19 MACRO.SRCJBDYSCN.MAR; 1 (14) 
~SBTTL ALLOCATE VIRTUAL BUFFER PAGE 


p++ 
; FUNCTIONAL DESCRIPTION: 
S SO ee ot Ose A PAGE OF VIRTUAL MEMORY AND LINKS THE 


THI 
TEXT STREAM THE CURRENT PAGE TO THE NEW PAGE. THE POINTER 
(R8) AND COUNTER (R7) ARE UPDATED. 


INPUTS: 
Re POINTER TO CURRENT PAGE (WHERE WE ARE STORING) 
R OUNT OF BYTES LEFT 
MACSGL_MACPTR POINTER TO MNB FOR MACRO BEING DEFINED 
OUTPUTS: 
Re POINTS TO FIRST BYTE ON NEW PAGE 


Number of usable bytes in page (512 bytes/page - 
MXBSK_BLKSIZ for header and 6 bytes for Link byte flag) 


MACS$VSTO_GET:: 
BSBw MACSALL_1_PAGE yALLOCATE A PAGE (ADDR IN RO ON RETURN) 
MOVB #MTX$_TRTICNK, (RB)+ ;STORE TEXT LINK FLAG BYTE 
BBSS #FLGSU_SPECOP,(R11),.+1 ;FLAG SPECIAL OPERATOR ON LINE 
MACS$VSTO_GET_0: ENTRY TO SET LINKS ONLY 
AOVL RO, (R8B)+ sSTORE TEXT LINK LINK POINTER 
MOVL R :POINT R8 TO THE NEW PAGE 
MOVZWL #<512-MXBS$K_BLKSIZ-6>,R7; Set byte count 
MOVL W*MACSGL_MACPTR, :GET POINTER TO MNB FOR MACRO 
ASSUME MXBSL_LINR EQ 0 
ASSUME MXBSL-PAGES EQ Mx 
MOVL MNBSC_PA a 


oOwoo mow 
Ooooo Noo 


K+4 
+ zLINK NEW PAGE INTO PAGE LIST 


#) + ; Block size is 1 page 
INCL MNBS$L_PAGC(R1) SAND COUNT IT 
BBS #FLGS$0_RPTIRP,(R11),10$ :BRANCH IF RPTIRP (NOT MACRO) 
INCL  W*MACSGL_MCPGRO SCOUNT ANOTHER PAGE FOR MACRO DEFINITION 
‘RETURN TO CALLER 
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CHKLPND 
COMPEXPR 
XOP 
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SCAN MACRO BODY 


04 
04 
04 


DOOOYWOOCO— 


3 


= 00000002 


ODOOooooooooooo 
pe ee lala lolololololeolola) 


= 00000061 
= 00000006 
00000001 
00000008 


= 
= 
= 0000000 


END 
MSK = 0000000 


cn 
v1 
BER 


CVTLW 
ILL 

NOC 

NUM 

SPA 
SYM_CH1 
SYM_CHR 
SYM_DLM 


YR OLA 


OMA 


COMPEXPR = 00000004 


I 
I 
SCAN 

COMMA 
ILL. 
NUM_ 
SPA_ 
SYM_ 
SYM_ 
S 
C 
ALCCHR 
BOL 
CHKLPND 


$A 
FLGSM 
FLGSM 
hg e 


FIND LEX_END 


MACSBDYSCN 
Symbol table 
BLNK 
BODY 
BOD 
CHR 
CHRSM 
CHRSM 
CHRSM 
CHRSM 
CHRSM 
CHRSM 
CHRSV 
CHRSV 
CHRSV 
CHRSV 
CHRSV 
CHRSV 
CHRSV 
CHRSV 
CHRSV 
CNT 
CR 
ERR 
FF 
FLG 
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MACSBDYSCN SCAN MACRO BODY 16-SEP-1984 02:03: AX/VMS Macro V04-00 Page 21 
Symbol table eat 7 85:09:98 UMACRO. SRe BDYSCN.MAR; 1 . fay 
INTS_SBTTL = 1 MACSGL_LIST_IT teeeeee x 04 PSC$K_NO_OPTNS = A 
INTS_SETFLAG = O00 8 ¢ MACSGL_MACPTR = teeeeeee =X 04 PSC$L-CURLOC 209 F 
INTS_SETLONG = 398 S MACSGL_MCLVL aeeeeere =X 04 PSCS$L_LINK 38 9 
INTS_SPIC = 4 MACSGL_MCPGRQ =s_«oateeeeeee =X 04 PSCSL_MAXLGTH 00 
INTS_SPID = 00000025 MACS$GL- VALUE aeeerere KX 04 PSCS$M_ABS = FRFFFFF? 
INTS$_STIB = 38 MACSG_SPLMC DIR eteeeeee xX 04 PSCS$M_ALIGNFLG = 9004000 
INTS_STIL = MACSINSUSRSYMTB steteeee =X = 04 PSCSM_ALLOPTNS = 444 FF 
INTS_ST1W = 00 4 MACSINTOUT_2_LW eteeeeee xX 04 PSCSM_BYTE = 00004000 
INTS_STKEPT = 909 0029 MACSINTOUT_X eeterere§ =X = 04 PSCS$M_CON = FFFFFFF 
INTS_STKG = 0000002A MACSLEX_OP-LIST 00000030 RG 3 PSCSM_DEFAULT = 500901¢ 
INTS_STKL = 00000028 MACSMAC_ARG_SCN eteeeeee Xx 04 PSCSM_EXE = 000000C 
INTS$_STKPC = 8 0008 C MACSMAC_DEF END 90 9 FD RG 4 PSCS$M_GBL = 0000001 
INTS_STKS = 0000002 MACSMAC_IN_MAC FB RG 4 PSCSM_LCL = FFFFFFEF 
INT$_ST = ai 4 MACSSET-ALC_CHR 0000031A RG 04 PSC$M_LIB = 00000002 
INT$_STOL = 68000 ¢ MACSSKIPSP eererere =X = 04 PSCS$M_LONG = 00004800 
INT$_ST = 000000 MACSSRC_LIST eerereee = X 04 PSCSM_NOEXE = FFFFFFBF 
INTS_STRB = D000¢ MACSSYMSCNUP eereeeee =X = 04 PSCSM_NOPIC = FFFFFFFE 
INTS_STRL = 00000031 MACSSYMSCNUP1 aererere§ X 04 PSCSM_NORD = FFFFFF CF 
INTS_STRSB = 0000034 MACSVSTO_CHAR QOO00031F RG 04 PSCSM_NOSHR = FFFFFFDF 
INTS_STRSW = 0000003 MACS$VSTO_GET 00000356 RG 04 PSCSM_NOVEC = FFFFFDFF 
INTS_STRW = 00000030 MACS$VSTO_GET_O 80008 61 R 04 PSCSM_NOWRT = FFFFFEFF 
INTS_STSB 2 sie MACSVSTO_SET 0000345 RG 04 PSCS$M_OVR = ts 44444 
INTS_STSW = 000000 MACS$VSTO_STR QOO0032F RG 04 PSCS$M_PAGE = 00006400 
INTS$_SUB sia tag in MAC$_BADCEXARG = 00709032 PSCSM_PIC = 00000001 
INTS_SUME = 00000039 MAC$_BADLEXF ORM= 00709034 PSCS$M_QUAD = 00004C00 
INTS_WRN = 00000038 C_SuBSYS = 0000007D PSCSM_ = 00000080 
INT$_XOR = sitet st $B_ARGCT 00000017 PSCSM_ = 00000008 
LEXITAL_ARG_ERR QOOOO1FC R 04 $8 _NAME 444 PSCSM_SHR = 00000020 
LEXICAL_END_CK ita R 04 MNBS$K_BLKSIZ 000001¢ PSCS$M_USR = FFFFFFFD 
LEX EXI O00023E R 04 $L_ARGP BO bong PSCSM_VEC = 00000200 
LEXICAL_EXTRACT O00001A1 R 04 MNBSL_CRSYMF 0000001 PSC$M_WORD = 00008400 
LEXICAL_LENGTH OO1F4 R 04 SL_LINK sealed PSCSM_WRT = 00000180 
XICAL"LOCATE 000001BE R 04 MNBSL_PAGC 000000F PSC$S_ALIGNMENT= si 
PC 000002E6 R 04 MNBSL_PAGP SOR Oo PSCSV_ALIGNFLG = 44 43 
LSTSG_MACRODEF seeneeeer Xx 04 MNBSL-TXTP 000000 PSCSV-ALIGNMENT= 0000000A 
LSTSK_BUFSIZ = 00000086 MNBSW_FLAG 00000009 PSCSV_EXE = 00000006 
LSTSK_L_P_PAGE = ain ts MTX$_ARGMRK = QOOOOOFF PSC$V_GBL = 00000004 
LSTSK-TITCE_SIZ= 00000028 MIX$_LITSTR = QOQOQOOOEF PSC$V_LIB = 00000001 
MAB$B_ARGNO 00000005 MTX$_LITVAL = QOOOOOEE PSCS$V_OVR = 00000002 
$B _NAME 0000004 MTXS_LXEXT = QOOOO0FC PSC$V_PIC = BOO hOnOT 
MABSK_BLKSIZ 000000C MTX$_LXLEN = BRO OHES PSC$V_RD = 00000007 
SL_DVPTR 0008 MTX$_LXLOC = 000000FB PSCS$V_REL = 00000003 
a 00000000 MTX$_NOMORE = QOOO00EC PSCS$V_SHR = 00000005 
MABSW_DVLEN 0006 MTIX$_SYMADR = = 9 GOED PSC$V_VEC = i494 
MACSAB_CMSK_TAB tteeeeee xX 04 MIX$-TXTLNK == FE PSCS$V-WRT = 8 
MACSAB_LINEBF eeereeee =X 04 MXBSR_BLKSIZ BOOS PSCSW_FLAG 0000009 
MACSAB_TMPBUF eereeere xX 04 MXBSL_LINK 0000000 PSC$W_OPTIONS 0000000 
MACSAB_TMPSY1 eteterer § YX 4 MXBSL_PAGES 0000004 RDX$V_BINARY = 000000 
MACSAB_TMPSYM = teeeeeee§ KX = 04 OBJ$K-BUFSIZ = 00000200 RDXSV-DECIMAL = 00 
MACSALC_1 PAGE tteeeere xX 04 OPFSM-LASTOPR = 00002000 RDX$V-DOUBLE = 
MACSBODY_SCAN 00000000 RG 4 OPFSM_OPTEXP = 00001000 DXSV-FLOAT = 4 
MACSCREF-DIR ereeeeee =X 04 OPFSV-LASTOPR = $ 0D RDX$V-GFLOAT = 0000 
MACSONUMBER teterere Xx 04 OPFSV“OPTEXP = 0c DXS$V_HEX = 0000 
MACSERRORLN eeeeeree =X 04 PSC$B_NAME 0 RDXS$V_HFLOAT = 
MACS$GETCHR eeeeeere xX 04 PSC$B_SEG 0 C DX$V-OCT z 1 
MACSGL_ARGPTR eeeeeee Xx 04 PSC$B_UNUSED 00 G$_PC z Of 
MACSGL_LINEPT eereeeee§ xX 04 PSCS$K-BLKS1Z 000001 SCAN-PERCENT 0000156 R 04 


MACSBDYSCN 
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SEMI 
STBSK_PG_MISS 
SYMSB_NAME 
SYM$B_SEG 


YMSV~REF 
SYMSV~RELPSECT 
SYMSV~SUPR 
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MACSRO_DATA 
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SCAN MACRO BODY 


Allocation PSECT No. Attributes 
0000000 <( ») 00 ¢ QO.) NOPIC 
0 00 ( ») O1¢ 1.) NOPIC 
0 1¢ ¢ 28.) ¢ ( ¢°3 NOPIC 
000003D ( 61.) ( -) NOPIC 


L 13 


USR 


"SrSEp-1986 Ofiarioe 


AX/VMS Macro V04-00 
MACRO.SRCJBDYSCN.MAR; 1 


a i 


noe NOWRT NOVEC BYTE 


RD WRT NOVEC BYTE 
RD NOWRT NOVEC LONG 


CON ABS LCL NOSHR NOEXE 
USR CON REL LCL NOSHR- EXE WRT NOVEC BYTE 
USR CON ABS LCL NOSHR' EXE 

CON REL GBL NOSHR NOEXE 


a 


M13 
MACSBDYSCN SCAN MACRO BODY 16-SEP-1984 02:03: AX/VMS M v04-00 P 3 
Psect synopsis et 7 84:05:98 ERACRO. SRC BDYSCN-MAR; 1 He d 


MACSRO_CODE _MAC 00000388 ( 904.) 04 ( 4.) NOPIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC LONG 


tamara sas nema ewe om mn eee wo} 


! Performance indicators ! 


pwmmacrn na comea ra naam a mame $ 


Phase Page faults CPU Time Elapsed Time 


Initialization 29 00:00:00.07 00:00:00.85 
ponnens processing We 00: : e. 4 Bega 9 -B¢ 
Symbol table sort 109 n 0:47 3:08 3:6 
Symbol table output 3¢ :00:00.17 0:00:00.6 
Psect synopsis output 00:00: 3-0 00:00:00.02 
Cross-reference output Be! :00. 00:00: 9-99 
Assembler run totals 534 0:00:06.08 00:00:29. 


The working set Limit was 1500 pages. 

35702 bytes_(70 pages) of virtual memory were used to buffer the intermediate c 

There were 30 pages of symbol table space allocated to hold 466 non-local and 40° tiest symbols. 
3 source lines were read in Pass 1, producing 20 object records in Pass 2. 

17 pages of virtual memory were used to define 16 macros. 


Enos en aaa ne mee mee a ome + 


Macro Library name Macros defined 


~$255$DUA28: : EMACRO. .OBJJMACRO.MLB; 1 13 
“$255$DUA28: SYSLIBISTARLET. MLB; 2 4 
TOTALS (all Libraries) 17 


568 GETS were required to define 17 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:BDYSCN/OBJ=O0BJ$:BDYSCN MSRC$:BDYSCN/UPDATE=(ENHS$:BDYSCN) +LIB$:MACRO/LIB 


aR? 


0274 H-st324-se0~—C~C~CST<S«<;C Q T CORPORATION 
VAX/VMS V4.0. : | PROPRIETARY 


